home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / modelers / linkedit / linkedit.lha / link-edit / LinkEdit / Choose / choose.c.old < prev    next >
Encoding:
Text File  |  1991-03-13  |  13.3 KB  |  437 lines
  1. #include <X11/Xlib.h>
  2. #include <X11/Xutil.h>
  3. #include <X11/cursorfont.h>
  4. #include <stdio.h>
  5. #include <sys/types.h>
  6. #include <dirent.h>
  7. #include <malloc.h>
  8.  
  9. #define MaxFiles 100
  10. #define MaxName 100
  11. #define MaxSuff 100
  12. #define mystuff mydisplay, mywindow, mygc
  13. #define rmystuff mydisplay, mywindow, rmygc
  14. #define font "9x15"   /* 9x15 */
  15. #define min(A,B) ((A>=B) ? B : A)
  16. #define max(A,B) ((A>=B) ? A : B)
  17. #define message(A); XFillRectangles(mystuff,&messbox,1); \
  18.   XDrawString(rmystuff,messbox.x+5,messbox.y+letheight, A, strlen(A));
  19. static XSizeHints myhint;
  20. static shwdir=1;
  21. static char *sufv[MaxSuff]; 
  22. static int sufc=0;
  23. static XFontStruct *font_struct;
  24. static int letwidth=6;
  25. static int letheight=13;
  26. static int rows=10;
  27. static XRectangle lstbox,cancelbox,okbox,fnamebox,upbox,downbox,mvbox,messbox;
  28. static char *prompt_string="file name: ";  
  29. struct elm {
  30.   int chose;
  31.   int ftype;
  32.   char name[MaxName];
  33. };
  34.  
  35. /*** TOBY addition */
  36. extern Display *dpy;
  37.  
  38. int
  39. showdir(which)
  40.   int which;
  41. {  shwdir=which; return(which); }
  42.  
  43. int
  44. addsuff(name)
  45.   char *name;
  46. { if (sufc<MaxSuff)
  47.   { sufc++;
  48.     *(sufv+sufc-1)=(char *)malloc((strlen(name)+2)*sizeof(char));
  49.     strcpy(*(sufv+sufc-1),name); return(1);
  50.   }
  51.   else return(0);
  52. }
  53.  
  54. int
  55. clearsuff()
  56. { int t;
  57.   for(t=0; t<sufc; t++) free(*(sufv+t));
  58.   sufc=0;
  59. }
  60. int
  61. delsuff(name)
  62.   char *name;
  63. { int t,t2,good=0;
  64.   for(t=0; t<sufc; t++)
  65.     if (strcmp(name,*(sufv+t))==0)
  66.     { free(*(sufv+t)); 
  67.       good=1;
  68.       for(t2=t; t2<sufc; t2++) *(sufv+t2) = *(sufv+t2+1);
  69.       t--;
  70.       sufc--;
  71.     }
  72.    return(good);
  73. }
  74.  
  75. int
  76. suflist(name)
  77.   char *name;
  78. { int t;
  79.   if (sufc==0) return(1);
  80.   for(t=0; t<sufc; t++)
  81.     if (match(name,*(sufv+t)))  return(1);
  82.   return(0);
  83. }
  84.   
  85. void
  86. chfree(namesc, namesv)
  87.   int *namesc;
  88.   char ***namesv;
  89. { 
  90.   while ((*namesc)-->0)
  91.     if (*((*namesv)+(*namesc))!=NULL) free(*((*namesv)+(*namesc)));
  92.   if (*namesv!=NULL) free(*namesv);
  93. }
  94.  
  95. XRectangle assign(x,y,width,height)
  96.   int x,y,width,height;
  97. { XRectangle box;
  98.   box.x=x;
  99.   box.y=y;
  100.   box.width=width;
  101.   box.height=height;
  102.   return(box);
  103. }
  104.  
  105. void init2()
  106. { lstbox=assign(19,19,15*letwidth+4,rows*letheight+4);
  107.   upbox=assign(lstbox.x+lstbox.width,lstbox.y,15,15);
  108.   downbox=assign(upbox.x,lstbox.y+lstbox.height-15,15,15);
  109.   mvbox=assign(upbox.x,upbox.y+upbox.height,15,downbox.y-upbox.y-upbox.height);
  110.   fnamebox=assign(0,lstbox.y+lstbox.height+30,letwidth*45+4,letheight*3+4);
  111.   okbox=assign(upbox.x+upbox.width+50,50,letwidth*6+4,letheight+8);
  112.   cancelbox=assign(okbox.x,okbox.y+okbox.height+30,okbox.width,okbox.height);
  113.   messbox=assign(0,fnamebox.y+fnamebox.height+2,fnamebox.width,letheight+4);
  114. }
  115.  
  116. void init()
  117. { int ascent,descent,dummy;  
  118.   XCharStruct overall;
  119.   if (font_struct!=NULL) 
  120.   { XTextExtents(font_struct," ",1,&dummy,&ascent,&descent,&overall);
  121.     letwidth=overall.width;
  122.     letheight=ascent+descent;
  123.   }
  124.   init2();
  125.   myhint.width=fnamebox.x+fnamebox.width+4; myhint.height=messbox.y+messbox.height+4;
  126. }
  127.  
  128. inbox(box,myevent)
  129.   XRectangle box;
  130.   XEvent myevent;
  131. { if ( myevent.xbutton.x>=box.x && myevent.xbutton.x<=(box.x+box.width) &&
  132.     myevent.xbutton.y>=box.y && myevent.xbutton.y<=(box.y+box.height)) return(1);
  133.   else return(0);
  134. }
  135.  
  136. void Cleanlst(lst,dirl)
  137.   struct elm *lst;
  138.   int dirl;
  139. { int i;
  140.   for(i=1; i<=dirl; i++) lst[i].chose=0;
  141. }
  142.  
  143. void flash(mydisplay,mywindow,mygc,box)
  144.   Display *mydisplay; 
  145.   Window mywindow;
  146.   GC mygc;
  147.   XRectangle box;
  148. { int delay=200;
  149.   XEvent event;
  150.   XSetFunction(mydisplay,mygc,GXxor);
  151.   XFillRectangles(mystuff,&box,1);
  152.   XPeekEvent(mydisplay,&event); 
  153.   XFillRectangles(mystuff,&box,1); 
  154.   XSetFunction(mydisplay,mygc,GXcopy);
  155. } 
  156.  
  157. choosefile(namesc,namesv,dpath,dr,write_read)
  158.   int *namesc;
  159.   char ***namesv;
  160.   char **dpath;
  161.   char *dr;
  162.   int write_read;
  163. { FILE  *fp;
  164.   DIR *dirp,*dumdir; 
  165.   char dum[300] ,inp[MaxName+20],  dum2[300],shell[300], dum3[MaxName+20],
  166.     text[10],inp_string[30],chrctr[2]; 
  167.   int i,found,chrows,k=0,flag=1,ch,dirl,kold,smooth=0,rdraw=0,chgdir=0,moved=0,
  168.     done=0,getting=0,myscreen,x,y,pstn,start=1,n;
  169.   struct dirent *dp;
  170.   struct elm *lst;
  171.   Display *mydisplay;
  172.   Window mywindow,UrgWindow;
  173.   XWindowAttributes sizeatt;
  174.   GC mygc,rmygc;
  175.   XEvent event,myevent;
  176.   KeySym mykey;
  177.   Cursor curs1,curs2;
  178.   unsigned long myforeground, mybackground;
  179.   strcpy(inp_string,"");
  180.   strcpy(dum2,dr);
  181.   lst=(struct elm *)(malloc(MaxFiles*sizeof(struct elm)));
  182. /*******
  183.   mydisplay=XOpenDisplay("");
  184. *******/
  185.   mydisplay = dpy;  /* TOBY change */
  186.  
  187.   myscreen = DefaultScreen(mydisplay);
  188.   mybackground= WhitePixel(mydisplay,myscreen);
  189.   myforeground= BlackPixel(mydisplay,myscreen);
  190.   font_struct=XLoadQueryFont(mydisplay,font);
  191.   init();
  192.   myhint.flags =PPosition | PSize; 
  193.   mywindow=XCreateSimpleWindow (mydisplay, DefaultRootWindow (mydisplay), myhint.x,
  194.     myhint.y, myhint.width, myhint.height,5,myforeground,mybackground);
  195.   XSetStandardProperties(mydisplay,mywindow,(write_read) ? "Save" :
  196.     "Load" ,"choosefile",None,NULL,0, &myhint);
  197.   mygc=XCreateGC(mydisplay,mywindow,0,0);
  198.   rmygc=XCreateGC(mydisplay,mywindow,0,0);
  199.   if (font_struct!=NULL)  
  200.   { XSetFont(mydisplay,mygc,font_struct->fid);
  201.     XSetFont(mydisplay,rmygc,font_struct->fid);
  202.   }
  203.   curs1=XCreateFontCursor(mydisplay,XC_top_left_arrow);
  204.   curs2=XCreateFontCursor(mydisplay,XC_watch);
  205.   XDefineCursor(mydisplay,mywindow,curs1);
  206.   XSetBackground(mydisplay,mygc,mybackground);
  207.   XSetForeground(mydisplay,mygc,myforeground);
  208.   XSetBackground(mydisplay,rmygc,myforeground);
  209.   XSetForeground(mydisplay,rmygc,mybackground);
  210.   XSelectInput(mydisplay,mywindow,ButtonPressMask | PointerMotionMask | 
  211.     ButtonReleaseMask | KeyPressMask | ExposureMask );
  212.   XMapRaised(mydisplay,mywindow);
  213.   while (done ==0)  
  214.   { if (flag) 
  215.     { XDefineCursor(mydisplay,mywindow,curs2); 
  216.       message("");
  217.       dirl=0;
  218.       sprintf(shell,"cd %s; pwd",dum2);
  219.       fp=popen(shell,"r");
  220.       fgets(dum2,100,fp);     
  221.       pclose(fp); 
  222.       n=strlen(dum2);
  223.       if (n>0 && dum2[n-1]=='\n') dum2[n-1]='\0';
  224.       dirp=opendir(dum2);
  225.       if (dirp!=NULL) 
  226.       { for (dp=readdir(dirp); dp!=NULL; dp=readdir(dirp))
  227.         { if (dirl<(MaxFiles-1))
  228.           { strncpy((lst[++dirl].name),(dp->d_name),MaxName-1);
  229.             if (strlen(dp->d_name)>=MaxName)
  230.             { message("Some File Names are too long ");}
  231.             strcpy(dum,dum2);
  232.             strcat(dum,"/");
  233.             lst[dirl].chose=0;
  234.             lst[dirl].ftype=!((dumdir=opendir(strcat(dum,lst[dirl].name)))==NULL);
  235.             if (lst[dirl].ftype) closedir(dumdir);
  236.             if (!((lst[dirl].ftype && shwdir) ||
  237.               (suflist(dp->d_name) && !(lst[dirl].ftype) ))) dirl--;
  238.           }
  239.           else {message("Too many files in the Directory"); }
  240.         } 
  241.         closedir(dirp);
  242.       }
  243.       flag=0;
  244.       XDefineCursor(mydisplay,mywindow,curs1); 
  245.     }
  246.     if ((start) && (*namesc>0))
  247.     { for(start=0;*namesc>0; (*namesc)--)
  248.       { found=0;
  249.         for(i=dirl; i>=1; i--)
  250.           if (match(lst[i].name,*((*namesv)+(*namesc)-1)) && (!lst[i].ftype)) 
  251.           { lst[i].chose=1; found=1; k=i-2;  k=max(min(dirl+2-rows,k),0);
  252.             if (write_read) {i=0;*namesc=0;} 
  253.           }
  254.         if (found) strcpy(inp_string,*((*namesv)));
  255.       }
  256.     }
  257.     if (rdraw) 
  258.     { rdraw=0;
  259.       XDrawImageString (mystuff,okbox.x+(okbox.width)/2-letwidth*2,
  260.         okbox.y+okbox.height/2+letheight/2,(chgdir) ? "OPEN" : " OK ",4);
  261.       for(i=1; i<=rows && (i+k)<=dirl; i++)
  262.         if (lst[i+k].chose) 
  263.         { XFillRectangle(mystuff,lstbox.x+1,lstbox.y+3+(i-1)*letheight,
  264.             15*letwidth,letheight);
  265.           XDrawString(rmystuff,lstbox.x+1,lstbox.y+i*letheight,
  266.             lst[i+k].name, min(strlen(lst[i+k].name),10));
  267.           if (lst[i+k].ftype) 
  268.             XDrawString(rmystuff,lstbox.x+1+letwidth*10,lstbox.y+i*letheight,"<dir>",5);
  269.         }
  270.         else
  271.         { XDrawImageString (mystuff, lstbox.x+1,lstbox.y
  272.             +i*letheight,strcat(strcpy(dum3,lst[i+k].name),"               "),10);
  273.           XDrawImageString(mystuff,lstbox.x+1+letwidth*10,lstbox.y+
  274.              i*letheight,(lst[i+k].ftype) ? "<dir>" : "     ",5);
  275.         }
  276.       for(; i<=rows; i++)
  277.       XDrawImageString (mydisplay, mywindow, mygc,lstbox.x+1,lstbox.y+i*letheight, 
  278.         "                       ", 15 );
  279.       XFillRectangles(mydisplay,mywindow,rmygc,&mvbox,1);
  280.       XDrawRectangles(mydisplay,mywindow,mygc,&mvbox,1);
  281.       XFillRectangle(mydisplay,mywindow,mygc,mvbox.x,mvbox.y+mvbox.height*
  282.         k/max((dirl+2),rows),mvbox.width,1+mvbox.height*rows/max(dirl+2,rows));
  283.     }
  284.     XNextEvent(mydisplay, &myevent);
  285.     switch(myevent.type) {
  286.     case ButtonRelease:
  287.       if (smooth) smooth=0;
  288.       break;
  289.     case MotionNotify:
  290.       if (smooth)  
  291.       { kold=k;
  292.         k=max((myevent.xmotion.y-mvbox.y)*max(dirl+2,rows),0)/mvbox.height;
  293.         k=max(min(dirl+2-rows,k),0); if (kold!=k) rdraw=1;
  294.       }
  295.       break;    
  296.     case MappingNotify:
  297.       XRefreshKeyboardMapping ( &myevent);
  298.       break;
  299.     case Expose:
  300.       if  (myevent.xexpose.count==0)
  301.         XGetWindowAttributes(mydisplay,mywindow, &sizeatt);
  302.       if (sizeatt.height!=myhint.height) 
  303.       { chrows=(sizeatt.height-myhint.height)/(letheight);
  304.         chrows=max(5-rows,chrows);
  305.         rows+=chrows; myhint.height+=chrows*letheight; init2();
  306.         k=max(min(dirl+2-rows,k),0);
  307.       }
  308.       XDrawRectangles(mystuff,&fnamebox,1); 
  309.       XDrawRectangles (mystuff,&lstbox,1);
  310.       XDrawRectangles (mystuff, &mvbox,1);
  311.       XDrawRectangles (mystuff, &upbox,1);
  312.       XDrawRectangles (mystuff, &downbox,1); 
  313.       XDrawRectangles (mystuff, &okbox,1); 
  314.       XDrawRectangles (mystuff, &cancelbox,1);  
  315.       XDrawImageString (mystuff,cancelbox.x+(cancelbox.width)/2
  316.         -letwidth*3,cancelbox.y+cancelbox.height/2+letheight/2,"CANCEL",6);
  317.       XDrawString(mystuff,10+fnamebox.x,(fnamebox.height+letheight)/2
  318.        +fnamebox.y-3,strcat(strcat(strcpy(dum3,prompt_string),inp_string),(getting)
  319.        ? "_" : " "),strlen(prompt_string)+strlen(inp_string)+1);
  320.       rdraw=1; 
  321.       break;
  322.     case KeyPress:
  323.       if (XLookupString(&myevent, text, 10, &mykey, 0)==1)
  324.       { if (!getting) 
  325.         { pstn = 0;
  326.           y =(fnamebox.height+letheight)/2+fnamebox.y-3;
  327.           x = 10+fnamebox.x + letwidth*strlen(prompt_string);
  328.           XDrawImageString(mystuff,x,y,"_                             ",30);
  329.           getting=1;
  330.         }
  331.         if((text[0] >= 32) && (text[0]!='/') && (text[0]!='{') && (text[0]!='}') 
  332.           && (text[0] <= 126) && pstn<30) 
  333.         { XDrawImageString(mystuff,x,y,text,1);
  334.           x += letwidth;
  335.           XDrawImageString(mystuff,x,y,"_",1);
  336.           inp_string[pstn] = text[0];
  337.           pstn++;
  338.         }
  339.         if(((text[0] == 8) || (text[0] == 127)) && (pstn>0)) 
  340.         { pstn--;
  341.           x -= letwidth;
  342.           XDrawImageString(mystuff,x,y,"_ ",2);
  343.         }
  344.         if (text[0]=='\r') 
  345.         { getting=0;
  346.           XDrawImageString(mystuff,x,y,"  ",2);  
  347.           inp_string[pstn] = 0;
  348.           if (pstn>0)
  349.           { Cleanlst(lst,dirl);
  350.             chgdir=0;
  351.             rdraw=1;
  352.             found=0;
  353.             message("");
  354.             for(i=dirl; i>=1; i--)
  355.               if (match(lst[i].name,inp_string) && (!lst[i].ftype)) 
  356.               { lst[i].chose=1; found=1; k=i-2;  k=max(min(dirl+2-rows,k),0);
  357.                 if (write_read) i=0; 
  358.               }
  359.             if ((!found) && (!write_read)) {message("Not found");}
  360.             if ((found) && (write_read)) {message("Note: Already Exists");}
  361.           }
  362.         }
  363.         inp_string[pstn] = 0;
  364.       }
  365.       break; 
  366.     case ButtonPress:
  367.       if (inbox(cancelbox,myevent)) done=2;
  368.       if (inbox(okbox,myevent)) 
  369.       if (chgdir) 
  370.       { XDefineCursor(mydisplay,mywindow,curs2); 
  371.  
  372.         flash(mystuff,okbox); 
  373.         strcat(dum2,"/");
  374.         strcat(dum2,inp);
  375.         flag=1; k=0; 
  376.         rdraw=1;
  377.         chgdir=0;
  378.       }
  379.       else done=1;
  380.       if (inbox(downbox,myevent)) { flash(mystuff,downbox); k++; }
  381.       if (inbox(upbox,myevent)) {flash(mystuff,upbox); k--; }
  382.       if (inbox(mvbox,myevent))
  383.       { k=(myevent.xbutton.y-mvbox.y)*max(dirl+2,rows)/mvbox.height; smooth=1;}
  384.       k=max(min(dirl+2-rows,k),0);
  385.       if (inbox(upbox,myevent) || inbox(downbox,myevent) || inbox(mvbox,myevent)) 
  386.         rdraw=1;
  387.       if (inbox(lstbox,myevent))
  388.       { ch=(myevent.xbutton.y-(lstbox.y+3))/letheight+1; 
  389.         if (ch+k>dirl) ch=0;
  390.         rdraw=1;
  391.         if (chgdir) { Cleanlst(lst,dirl); chgdir=0;}
  392.         lst[ch+k].chose=(!lst[ch+k].chose);
  393.         if ((ch>=1) && (ch<=rows) && ((lst[ch+k].ftype==1) || (write_read)))   
  394.         { strcpy(inp,lst[ch+k].name);
  395.           Cleanlst(lst,dirl);
  396.           lst[ch+k].chose=1;
  397.           if (lst[ch+k].ftype) chgdir=1;
  398.         }
  399.       }
  400.       break;
  401.     }
  402.   }
  403. /*
  404. TOBY
  405.   chfree(namesc,namesv);
  406. */
  407.   *namesc=0;
  408.   if (done==2) {*namesv=NULL; *dpath=NULL; }
  409.   else
  410.   { *namesv=(char **)malloc(dirl*sizeof(char *));
  411.     for(i=1; i<=dirl; i++)
  412.       if (lst[i].chose)
  413.       { 
  414.         *((*namesv)+(*namesc))=(char *)malloc(strlen(lst[i].name)+2);
  415.         strcpy(*((*namesv)+(*namesc)),lst[i].name);
  416.         (*namesc)++;
  417.       }
  418.   /*  if (dpath!=NULL) free(dpath); */
  419.     if ((*namesc)==0 && write_read==1 && strlen(inp_string)>0) 
  420.     {
  421.         *((*namesv)+(*namesc))=(char *)malloc(strlen(inp_string)+2);
  422.         strcpy(*((*namesv)+(*namesc)),inp_string);
  423.         (*namesc)++;
  424.     }
  425.       
  426.     *dpath=(char *)malloc(strlen(dum2)+2);
  427.     strcpy(*dpath,dum2);
  428.   }
  429.   XFreeGC (mydisplay,mygc); 
  430.   XDestroyWindow (mydisplay,mywindow);
  431. /*** TOBY
  432.   XCloseDisplay (mydisplay);
  433. ****/
  434.   return(*namesc);
  435. }
  436.  
  437.